home *** CD-ROM | disk | FTP | other *** search
- /* ProjStor.ACT --this defines additional object storage
- related methods for the project application
- --this assumes the Object Storage methods from
- Language Extensions I are loaded
- --these are a subset of OBJSTOR2.ACT
- */
-
- /* * * * * * * * * * * *
- storeStructureOn methods.
- * * * * * * * * * * * * */
-
- now(Date)!!
-
- /* Override Number:storeStructureOn. */
- Def storeStructureOn(self, stream, table)
- { storeStructureOn(self:Object, stream, table);
- }!!
-
- /* * * * * * * * * * * *
- storeDefinitionOn methods.
- * * * * * * * * * * * * */
-
- now(Date)!!
-
- /* Override Number:storeStructureOn.
- Note: Dates are stored in the form #Date(%123456L). */
- Def storeDefinitionOn(self, stream, table)
- { storeStructureOn(asLong(self), stream, table);
- }!!
-
- /* * * * * * * * * * * *
- getNew for various classes.
- * * * * * * * * * * * * */
-
- now(class(Date))!!
-
- Def getNew(self, reader, id | obj)
- { obj := new(Date);
- set(obj, next(reader));
- addObject(reader, id, obj);
- ^obj;
- }!!
-
-